home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor2
/
timeeval.doc
< prev
next >
Wrap
Text File
|
1995-03-31
|
2KB
|
47 lines
TIMEEVAL, an object-execution timer v1.0
From: phk@data.fls.dk (Poul-Henning Kamp)
Newsgroups: comp.sources.hp48
Date: 1 Oct 91 02:38:36 GMT
[Note: This is for those who desire the functionality of the XTIME command in
Jim Donnelly's TOOL LIBRARY (a commercial product) without having that whole
library in memory. -jkh-]
obj TIMEEVAL --> n(ticks) x_ms
Evaluates the object on top of the stack, and returns the time it took in
ticks of the internal clock and in milli-seconds.
Arguments for <obj> can put put on the stack above it, and results from the
evaluation will be available above the results of TIMEEVAL.
example:
+----------------------+ +----------------------+
|4: | |4: |
|3: | |3: .908508177527|
|2: 65.3| |2: 247|
|1: SIN| -> TIMEEVAL -> |1: 30.151_ms|
+----------------------+ +----------------------+
You cannot get SIN onto the stack ? try this: { SIN } OBJ\-> DROP
The T0 offset is (on my calc, Rev E) 31 ticks, or 3.784_ms. This is roughly
the time it takes to evaluate a data-object like "Hello".
WARNINGS:
=========
The EVAL employed is the "kernel-one", which does not evalute inside lists.
Programs relying on a specific local-env will fail if they use 1GETLAM &c &c.
There is no ERRTRAP built in.
--
phk@data.fls.dk || A host is a host from coast to coast,
Poul-Henning Kamp || & no one will talk to a host that's close,
FLS DATA A/S || Unless the host (that isn't close)
Phone: (+45) 36 18 12 35 || is busy, hung or dead.
Fax: (+45) 36 18 12 18 || Anon (?)